home *** CD-ROM | disk | FTP | other *** search
/ Alpha CD-ROM Bonus Pack / Alpha CD-ROM Bonus Pack.iso / life / shared.dir / 00500_HotSpotScripts.ls < prev    next >
Encoding:
Text File  |  1995-01-16  |  1.3 KB  |  45 lines
  1. on flashHotSpots
  2.   global hotSpotList
  3.   repeat with i = 1 to count(hotSpotList)
  4.     set spriteNum to getAt(hotSpotList, i)
  5.     puppetSprite(spriteNum, 1)
  6.     set castName to string(getPropAt(hotSpotList, i)) & "_B2"
  7.     set the castNum of sprite spriteNum to the number of cast castName
  8.   end repeat
  9.   updateStage()
  10.   set startTime to the ticks
  11.   repeat while (the ticks - startTime) < (2 * 60)
  12.     nothing()
  13.   end repeat
  14.   repeat with i = 1 to count(hotSpotList)
  15.     set spriteNum to getAt(hotSpotList, i)
  16.     set castName to string(getPropAt(hotSpotList, i)) & "_B1"
  17.     set the castNum of sprite spriteNum to the number of cast castName
  18.     puppetSprite(spriteNum, 0)
  19.   end repeat
  20.   updateStage()
  21. end
  22.  
  23. on setHotSpotDetect theState
  24.   global gHotSpotDetect
  25.   set gHotSpotDetect to theState
  26. end
  27.  
  28. on hotSpotDetect
  29.   global gHotSpotDetect
  30.   return gHotSpotDetect
  31. end
  32.  
  33. on initHotSpotCastNumbers
  34.   global hotSpotList, hotSpotCastListA, hotSpotCastListB
  35.   set hotSpotCastListA to []
  36.   set hotSpotCastListB to []
  37.   repeat with i = 1 to count(hotSpotList)
  38.     set root to string(getPropAt(hotSpotList, i))
  39.     set cNum to the number of cast (root & "_B1")
  40.     add(hotSpotCastListA, cNum)
  41.     set cNum to the number of cast (root & "_B2")
  42.     add(hotSpotCastListB, cNum)
  43.   end repeat
  44. end
  45.